DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


a 


**F ILE**1D**DBGSTEPGO 


DDDDDDDD BBBBBBEB GGGGGGGG SSSSSSSS ITTITTITTTTT EEEEEEEEEE PPPPPPPP GGGGGGGG 000000 
DODDDDDD BBBBBBBB GGGGG6GGG SSSSSSSS TTTTITTTTT EEEEEEEEEE PRPPPPPPP GGGGGG6GG6 000000 
dD DD 8B BB GG SS TT EE PP PP GG 00 

DD DD 6B BB GG SS TT EE PP PP GG 00 

DD dD BB GG SS TT EE PP PP GG 00 

dD dD BB GG $$ TT EE PP PP GG 00 

dD DD 88888888 GG SSSSSS TT EEEEEEEE PPPPPPPP GG 00 

DD DD SSSSSS TT EEEEEEEE PPPPPPPP GG 00 

dD DD BB GG GG6GGGG SS TT EE PP GG GGGGGG 00 

DD DD 8B BB GG 666666 SS TT EE PP GG GGGGGG 00 

DD DD BB GG GG SS TT EE PP GG GG 00 

DD DD 88 BB GG GG SS TT EE PP GG GG 00 00 
DDDDDDDD 88888888 GGGGGG SSSSSSSS TT EEEEEEEEEE PP GGGGGG 000000 
DDDDDDDD BBBBBBEB GGGGGG SSSSSSSS TT EEEEEEEEEE PP GGGGGG 002000 
LL III] SSSSSSSS 

LL 111] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] $$ 

LELLLLLLLL III] SSSSSSSS 

LLLLLLLLLLE 1111 SSSSSSSS 
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te een, 


Vv lensep -1 
; 1 . 1 0 MODULE DBGSTEPGO (IDENT = ‘v04-000") = 
5 ¢ : § ! BEGIN 

3 : 004 1 'eeeereerrererereneeeeeeereneerereeeerereetereereRereNKeReReerenereneneererer 

3 005 1 !« 

i $ 09 1 !e COPYRIGHT (c) 1978, 1980, 1982, 1984 B a 
; 007 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
3 8 4 : in ALL RIGHTS RESERVED. * 
Ps > ® 
g 10 0010 1 !* rere SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee . 
: 11 0011 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 i Bot¢ 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

| 3 1 001 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
3 14 0014 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 2 Bot? : ° TRANSFERRED. ® 
5 :® s 
3 17 501? 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 18 0018 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 19 0019 1 !* CORPORATION. * 
; 20 0020 1 !# ® 
; 21 0021 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $8 4 ¢ ; te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Ps :* ® 
; @ 0024 1 !« * 
3 25 0025 1 !eeeeeereererereraerereeaeeeeeeeeeeeeeeeteeeeeereKeeeeeeeeneneKeeeeeReeererene 
3 26 0026 1! 
ae 0027 1 
; a 0028 1 !+¢4 
: $3 0029 1°! FACILITY: 

; 0 0030 1! 

; 31 0031 1! DEBUG 

; 3 0032 1! 

3 3 0035 1 ! ABSTRACT: 

3 34 0034 1! 

$ 35 0035 1! This module contains the command parse and execution networks to support 
r = 0036 1! the STEP and the GO commands. 

a 0037 1! Parsing is done by means of ATN's. During parsing. @ 

3 38 0038 1! Linked List known as the command execution tree is constructed. This 
; WP 0039 1! ree contains components which represent keywords and operands of the 
3 40 0040 1! user's input command. The command execution tree is passed to the command 
: 41 0041 1! execution network as input. 

3 62 0042 1! 

3s 65 0045 1 ! ENVIRONMENT: 

3 44 044 1! 

; 65 045 1! VAX/VMS 

; 64 0046 1! 

; 4 004 1 ! AUTHOR: 

; 48 00468 1! 

; 69 0049 1! David Plummer 

3 50 050 1! 

; 51 051 1 =! CREATION DATE: 

3 26 052 1! 

: 5 055 1! 9-Jul-80 

: | «654 0054 1! 

s 55 055 1 =! VERSION: 

3 29 056 1! 

3 7 0057 1! v02.2-001 
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MODIFIED BY: 


Richard Title 


REVISION HISTORY: 


3.01 


15-SEP-81 


3.02 21-Dec-81 
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RT 
RT 


Modified the STEP command to allow 
STEP/SOURCE and STEP/NOSOURCE 


Sac§ 


Disallowed STEP from an exception break. 
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GSTEPGO ihese -1984 02:38:5 AX-11 Bliss-32 V4.0-74 
irae ts ak ae 1 05:78:23 DEBUG. SRC IDBGSTEPGO.B3 37 
s 7 9 1! 
; a! 3H : } TABLE OF CONTENTS: 
Re 72 1: 
$ a 0978 : : REQUIRE FILES: 
: 7% 0075 1 REQUIRE : SRCS : DBGPROLOG REQ’; 
aD 09 1 LIBRARY *LIB$:DBGGEN.L32'; 
Boos Bia 
: 80 0 i 1 FORWARD ROUTINE 
3 4 021 1 DBGSNPARSE STEP ' STEP parse network 
; ¢ 0214 1 DBGSNEXECUTE STéP, ' STEP execution network 
Teg 0215 1 DBGSNPARSE_G ! Parse network for GO 
; 84 0 16 DBGSNEXECUTE_ GO; i Execution network for GO 
: 86 0218 1 ! EQUATED SYMBOLS: 
—— or 0219 1! 
; «688 ps3 1 LITERAL 
; 0221 1 
3 4 bss¢ : } Legal verb composites 
i: 0594 1 GO_NOADDR = 1, 
: er 855¢ ; GO-ADDR = 2, 
: 95 0227 1 
3 38 0998 ' Legal adverb literals 
: 98 $580 1 ADVERB_LITERAL_LINE = 1, 
; 99 0231 1 ADVERB_LITERAL_OVER = ¢: 
; 100 ocag 1 ADVERB_LITERAL_NOSYSTEM = 3, 
: +t OS e7 : ADVERB_LITERAL_SOURCE = 4; 
; 108 0235 1 
: ine Os $ ’ EXTERNAL REFERNECES 
> 106 0238 1 EXTERNAL ROUTINE 
: 107 0239 1 DBGSEVENT_SEMANTICS, ! Event semantics 
: 108 0240 1 DBGSEVENT SYNTAX, ' Event syntax (parser) 
3: 109 0241 1 DBGS$GET_TE: M, ! Allocates Listed dynamic storage 
: 110 Oeee 1 DBGS$IS_TT_ENTRY ' Checks for address = entry point 
S) See 0245 1 DBGSNGET_ADDRESS ! Obtains an address value from an addr exp desc 
: Wg 0244 1 DBG E_ARG_ Ect, ' Constructs @ message argument vector 
we $¢? 1 DBGSNMATCH, ' Matches counted gtr ings to input 
3 «114 46 1 DBGSNNEXT WOR ' Obtains next word of input 4 hag 
3: 115 247 «1 DBGSNPARSE_ ADD ! Interface to Address Expression Interpreter 
: 116 0248 1 DBGSNSAVE_BECIMAL_INTEGER, i Converts ascii input into an integer 
3 (117 0249 1 DBGSNSYNTAX_E = ! Formats a syntax error 
; 118 0250 1 DBGSSET_STP_LVL, ' Sets step structure pointer 
; ib 8 2} : DBGSTHREAD_RET; ! Address threaded breakpoints return to 
; 13 0 2g 1 EXTERNAL 
: 1 § 54 1 DBGS$GB_UNHANDLED_EXC: BYTE, ! Unhandled exception in user 
s Ye 0255 1 : rogram was just encountered 
3; 126 0 2$ 1 DBG$GB_EXC_BRE_FLAG: BYTE, ! TRUE during an exception break. 
3; 125 0257 1 DBG$GB_GO_ARG_FLAG: BYTE, ' Flag saying whether GO has 
: 126 0258 1 ! an argumen 


—————_—____--———- 


| 
WousOnO 1b-de0- 1984 93:78:23 ¥Okeug. BacSbacerteeo.053- 1 ae madt 


Vv 
. 127 59 1 peGs68. stP Pu : REF EVENTSSTEPPING_ 6 in ee = ! current stepping 
: 128 60 1 DBG$GB-TAKE_CMD : BY a9 for taking commands 

> 129 61 1 DBGS$GL “CONTEXT : BITVECTOR, ce ext word 

; 150 0 6¢ 1 DBGSGL- STEP NUM ' Holds step number 

; 6 63 DBC SRURF RANE — (BYTE); i Current runframe 

; (1 0265 1 


; 
j 
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GLOBAL ROUTINE DBGSNPARSE_STEP (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

FUNCTIONAL DESCRIPTION: 
This routine comprises the ATN parse network for the STEP command. 
During processing, — routines are invoked to capture operands. 
This routine recognizes keywords and constructs a command execution tree 
to be used as input to the command execution network. Upon detection of 
errors, a message argument vector is constructed and returned. 

FORMAL PARAMETERS: 


INPUT_DESC - A longword containing the address of a standard ascii 
string descriptor representing the user's input 


i 

i 

i 

i 

i 

i 

' 

i 

} 

i 

i 

i 

i 

: VERB_NODE - A longword containing the address of the verb (head) : 
' node of the command execution tree. The string corresponding 
to the verb has already been processed upon entry. 

‘ MESSAGE _VECT - The address of a ere to contain the address of a 
message argument vector on errors 

' 
IMPLICIT INPUTS: 

} NONE 

IMPLICIT OUTPUTS: 

! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


On success, the entire command execution tree corresponding to the parsed 
STEP command is constructed. 


fot al eal eal eal eal taleal eal eal eal eal eal eal tal eal oe oP oe ae oP oF oP oP oe wl”, YOO, | 
OOCOCCOCOCOCCOCOCOCSCOCCOCO COO COCCOCOOCOOCOCOOCOOOOCOOOCOOOCOOOOoOOoOO 
SSSSSRRSS oS eh enh bee Ase bee 
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: On error, a message argument vector is constructed and returned. 
g of ROUTINE VALUE: 
4 An unsigned integer longword completion code 
4 Be COMPLETION CODES: 
. $44 STSSK_SUCCESS (1) - Success. Input parsed and execution tree constructed. 
7 0308 STSSK SEVERE (4) - Failure. Error detected and message argument 
7 8308 vector constructed. 
7 10 
0311 SIDE EFFECTS: 
bai§ 
O31 NONE 
14 
15 
3 ms 
Oet8 VERB_NODE : REF DBGSVERB_NODE; 
031 VERB_NODE ([DBG$B_VERB_COMPOSTTE] = EVENTSK_STEP; 
0 RETURN DBGSEVENT_SYNTAX (. INPUT DESC, 
1 - VERB_NODE 
91 0322 “MESSAGE _VECT 


H 1 
voe=000 Ver8e5-1986 93:79:25 Eoeeus.SacSbacsrerco.8ss;1 = AM 
: 19 O3¢ § ew; 


TU ROSE ERE 


I 
D 
of Lae Foe eEVENTese a 


v 
XTRN DBGSNMAT a SDBSNWEXT WORD 


-EXTRN DBGSSET VL 

eEXTRN DBCSTHREAD rat. DBGSGB_UNHANDLED_EXC 
-EXTRN D0BG$GB 6B EXC 8 “y FLAG 

-EXTRN D0B8G$GB_G LAS 

-EXTRN DBG$GB_S °e BSR. DBG$GB_TAKE_CMD 
-EXTRN DBGSGL “CONTEXT: DBG$GL_STEP_NUM 
-EXTRN DBGSRUNFR 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 0000 .ENTRY DBGSNPARSE_STEP, Save nothing ; 

08 BC 08 08 oc F0 90008 iNSV #1 8. avERB_NODE ; 
7E 08 AC 7D 0000 mova vERB NODE, -(SP) : 

04 aC DD 0000C PUSHL INPU 134 : 

000000006 00 03 FB OO00F CALLS #3, UDBGSEVENT _SYNTAX : 

04 00016 RET : 


; Routine Size: 23 bytes, Routine Base: DBGSCODE + 0000 


-———_—— - -- ----- 


| 
GSTEPGO 
8 


; 193 5 
; 199 8 
; «198 8 
; 199 

; 200 0 
: 4 1 
3 88 8 § 
; 2046 0334 
; 205 b 5 
: $0 $ 
; 208 0338 
; 209 0339 
3; 210 0340 
AE O83 
3 ig pac$ 
3; 2146 0344 
: 215 0345 
F 16 0346 
s al? 0347 
> 218 0348 
3 19 0349 
: 220 0350 
: $8) 0883 
F 208 b3e8 
3 224 0354 
s 225 0355 
3 $$$ 0328 
3 ger 035 
s 228 0358 
; $69 0359 
3; 230 0360 
s esl 0361 
3; 232 036 
3 $37 036 
: 234 0364 
: 235 0365 
3; 236 0366 
B gor 0367 
s 238 B08 
3 39 369 
3 seo 0370 
3 t tral 
: ¢3 0378 
: 246 374 
: 265 0375 
3; 246 0376 
: 47 0377 
3 48 O38 
3 249 37 
s 250 Bane 
s éo1 0381 
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OBAL ROUTINE DBGSNEXECUTE_STEP (VERB_NODE, MESSAGE_VECT) = 
FUNCTIONAL DESCRIPTION: 


This routine accepts as input the command execution tree constructed 

by the parse network and performs semantic actions corresponding to the 
parsed input STEP command. If the action cannot be performed, a message 
argument vector is constructed and returned. Actual stepping ts NOT 
performed in this network. This is handled by the DEBUG monitor. 


This routine manipulates the dbg$gb_def_stp structure, as well as the 
step level pointer. 


FORMAL PARAMETERS: 


VERB_NODE - A longword containing the address of the verb (head) 
node of the command execution tree 


MESSAGE_VECT - The address of a longword to contain the address of 
= Sree’ message argument vector upon detection of 
of errors 


32 nF at | 
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IMPLICIT INPUTS: 


The entire Linked List command execution tree as pointed to by the 
verb node. 


IMPLICIT OUTPUTS: 

On error, a message argument vector is constructed and returned. 
ROUTINE VALUE: 

An unsigned integer longword completion code 
COMPLETION CODES: 

STSSK_SUCCESS (1) - Success. A STEP will be performed. 


STSSK_SEVERE (4) - Failure. The STEP will not be performed. 
Message argument vector returned. 


SIDE EFFECTS: 
The DEBUG monitor will be informed to perform a step. 


BEGIN 


! If we are continuing from an unhandled exception, signal an 
informational message to that effect. 


t 
i 
! 
1F | ;,PBG$GB_UNHANDLED_EXC 
BEGIN 
SIGNAL (DBG$_CONF ROMEXC); 
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; ¢ § DBGSGB_UNHANDLED_EXC = 0; 
: i 7 END; 
; 2? 5 Call the event semantics routine. 
3 37 0 $ RETURN DBGSEVENT_SEMANTICS (.VERB_NODE, .MESSAGE_VECT); 
: 259 0 HS 1 END; 
0004 9000 .ENTRY DBGSNEXECUTE_STEP, Save R2 : 0325 
§2 000000006 00 9 90 MOVAB DBG$GB_UNHANDLED_EXC, R2 : 
F 62 € $00 BLBC DBG$GB-UNHANDLED-EXC, 1$ : 0378 
00028783 8F DD 0000 PUSHL A 3 ; 0381 
000000006 00 01 FB 0001 CALLS IBSSIGNA : 
62 94 0001 éLRB paéster UNHANDLED EXC : 038 
7E 06 AC 70 00018 1$: MOVO VERB_NODE, -(SP)~ : 038 
| 000000006 00 02 FB 0001F CALLS 2, BaGSEVENT _SEMANTICS ; 
04 00026 RET : 0389 
; Routine Size: 39 bytes, Routine Base: DBGSCODE + 0017 
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GLOBAL ROUTINE DBGSNPARSE_GO (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

i FUNCTIONAL DESCRIPTION: 

This routine comprises the ATN parse network for the GO verb. During 
process ing of the input command, a command execution tree containing the 
eywords and operands of the input command is constructed. On a non=- 
successful parse, a message argument vector is constructed and returned. 


FORMAL PARAMETERS: 


INPUT_DESC - A longword containing the address of a standard ascii 
string descriptor representing the user's input command 
VERB_NODE - A longword containing the address of the verb (head) 


node of the command execution tree. 


MESSAGE _VECT - The address of a longword to contain the address of a 
message argument vector for errors 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
On success, the command execution tree is constructed. 
On failure, a message argument vector is constructed and returned. 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSS$K_SUCCESS (1) - Success. Input parsed and execution tree constructed. 


STSSK_SEVERE (4) - Failure. Error detected. Message argument vector 
constructed and returned. 


SIDE EFFECTS: 
NONE 


BEGIN 
P 
VERB_NODE : REF dbg$verb_node; 
BIND 
DBGS$SCS_CR = UPLIT BYTE (1, dbg$k_car_return); 


STATUS ! Holds return status ; 
NOUN_NODE : REF dbg$noun_node; i Will contain GO address, if any given 
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The GO has already been accepted. Check for GO <CR>. 
IF _dbgSnmatch (.input_desc, dbg$cs_cr, 1) 
BEGIN 
Nothing left. Set the appropriate verb composite and return 
verb_node Cdbg$b_verb_composite] = go_noaddr; 
RETURN sts$k_success; 
END; 
} There is some input left. Try to parse the address expression. 
noun_node = dbgsger tempmen(dbg$k_noun node_size); 
VERB-NODE CDBGSL_VERB_OBJECT_PTRJ~= .NOUN_NODE; 
IF NOT (STATUS ="DBGSNPARSE_ADDRESS(. INPUT DESC 
NOUN_N G$L_NOUN VALUES, DBGSK_DEFAULT, 
nae TOKENSK_TERM_NONE, .MESSAGE_VECT)) 
BEGIN 
We are responsible for syntax error on STSS$K_WARNING. 
if status EQL sts$k_warning 
-message_vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
RETURN sts$k_severe; 
END; 
Set the correct verb composite 
verb_node [dbg$b_verb_composite) = go_addr; 
RETURN sts$k_success; 
END; 


.PSECT DBGSPLIT.NOWRT, SHR, PIC.O 
0D 01 00000 P.AAA: .BYTE 1, 13 
DBGSCS_CR= P.AAA 


-PSECT DBGSCODE,NOWRT, SHR, PIC.0 


0004 00000 -ENTRY DBGSNPARSE_GO, Save R2 
1 dd 00002 PUSHL #1 
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vitae th 19-80-1382 95: 79:2 DEBUG. enc SoBeeTEPGo. a3, :1 ve 5) 
00000000" EF 9F 00004 HAB DBGSCS_CR : 
4 at DD OOOOA PUSHL INPUT bE : 
000000006 00 9 FB 00D CALLS #3, DBGSNMATCH : 
08 0 €9 00014 BLBC ~—E—s«RO, Is : 
08 BC 08 08 01 FO 00017 INSV #1, #8, #8, @VERB_NODE + 0457 
49 11 00010 BRB 4$ : 0458 
04 0D OOO1F 1$: PUSHL #4 : 04664 
000000006 00 01 FB 00021 CALLS #1, DBGSGET_TEMPMEM : 
32 08 Ac dO 90 8 MOVL § VERB_NODE, R2 + 0465 
08 A 50 DO 000 MOVL § NOUN-NODE, 8(R2) : 
0c AC pp 000 PUSHL MESSAGE _VECT > 04668 
7E gi D 990 ova _—so#i, = + 0467 
0 0D 00036 PUSHL NOUN_NODE : 
04 AC DD 00038 PUSHL  INPUT_DESC 3 
000000006 00 9° 4 0003 CALLS #5, DBGSNPARSE_ADDRESS : 
1F 0 €8 0004 BLBS STATUS, 3$ F 
50 D5 0004 TSTL : 0475 
17 12 00047 BNEQ : 
04 AC 0D 00049 PUSHL INPUT_DESC > 0477 
000000006 00 01 FB 0004¢ CALLS #1, DBGSNNEXT_WORD : 
50 DD 0005 PUSHL RO ; 
000000006 00 01 FB 00055 CALLS #1, DBGSNSYNTAX ERROR : 
OC BC 50 DO 0005¢ MOVL RO, @MESSAGE_VECT : 
50 04 00 00060 2$: MOVL #4. RO + 0479 
04 00063 RET ; 
01 A2 02 90 00064 3$: MOVB #2, ~:1(R2) : 0485 
50 01 DO 00068 4$: MOVL #1. RO + 0487 
04 00068 RET + 0489 


; Routine Size: 108 bytes, Routine Base: DBGSCODE + OO3E 
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pee : GLOBAL ROUTINE DBGSNEXECUTE_GO (VERB_NODE, MESSAGE_VECT) = 
0698 FUNCTIONAL DESCRIPTION: 
0494 1: This routine accepts the command execution tree constructed by the parse 
0495 1! network and performs the semantic actions associated with the parsed 
04696 1! GO command as given by the user. The actual GO is not performed by this 
oh 4 : routine. Rather the DEBUG monitor is informed to perform a GO. 
0499 FORMAL PARAMETERS: 
0501 1 | VERB_NODE ~ A longword containing the address of the verb (head) 
B28 ; node of the command execution tree 
0504 1: MESSAGE _VECT - The address of a longword to contain the address of a 
0505 1! standard message argument vector upon detection of 
0506 1! errors. 
0507 1! 
$4 : IMPLICIT INPUTS: 
AY : . The entire command execution tree Linked List pointed to by the verb node. 
0318 1 | IMPLICIT OUTPUTS: 
0513 1! 
0514 1! NONE 
0515 1! 
0516 1 ! ROUTINE VALUE: 
0517 1! 
g218 ; An unsigned integer longword completion code 
9520 COMPLETION CODES: 
0338 ; STSSK_SUCCESS (1) - Success. The GO command will be executed. 
0524 1! STSSK_SEVERE (4) - Failure. THE GO will not executed. Message argument 
O36? ; } vector constructed and returned. 
0327 1 ! SIDE EFFECTS: 
#344 : : Semantic actions coresponding to the execution of the GO command are taken. 
0531 1: 
B2ag 1 
05 BEGIN 
05 
0535 Pp 
O28 VERB_NODE : REF dbg$verb_node; 
610 0538 BUILTIN 
411 0539 PROBER; ! Probes read access 
et 0540 
41 0541 CAL ; 
414 O366 OLD_PC : REF VECTOR C, WORD], ! Used to access instruction 
415 bee NEW PC ' Starting PC value 
416 544 NODE : REF abgsnqun_node. ! Noun node : 
417 0545 ADDRESS : VECTOR (2), ! Address contained by addr exp desc 
418 0546 TYPE; ! Types of object described by addr exp desc 
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1e~300~ 138% 96:38:23 AX-11 Ol ise V4.0-74 
14-Sep-1984 12:17:49 DEBUG. SRC 
Set up to do the go depending on whether there is a specified start address or not 
if ,verb_node Cdbg$b_verb_composite] EQL go_addr 
BEGIN 
Recover the noun node and obtain a PC value 
noun_node = .verb_node [dbg$l_verb_object_ptrJ; 
IF NOT dbg$nget_address (.noun_node Cdbg$T_noun_valueJ, address [0], 
. type, false, .message_vect) 
RETURN sts$k_severe; 


The GO address is now contained in address [0]. We don't care about the type. 
new_pc = .address (0); 


Check for an entry mask 
IF dbg$is_it_entry (.new_pc) 
THEN _ . » 


new pc = .new_pc + 2; 


Check for read access before we load the address into the user's PC 
if NOT PROBER (REF (0), %REF (1), .mew_pc) 
THEN 

BEGIN 


-message_vect = dbg$nmake_arg_vect (dbg$_badstartpc, 1, .new_pc); 
RETURN sESSk_severe; . : 


' For GO xxx, we load the new PC into the runframe and clear the FPD bit 
in the PSL. We must also check for threaded code. 
old_pc = .dbg$runframe [dbg$l_user_pc); 


i .tostel content Cdbg$k_thread] ! Threaded code 


BEGIN 
IF .old_pc CO) EQL 2X"9B17" ! JMP a(Ril)+ 
nei EQL DBGSTHREAD_RET ! Address of returns from threaded BPTs 
,ooiruntvene Cdbg$l_user_r11] = .new_pc 
BEGIN ‘ 
message _vect = dbg$nmake_ar*_vect (dbg$_notlinbnd); 
— sts$k_severe; 


END 
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1 5 
1 4 
ELSE 
dbg$runframe [dbg$l_user_pc] = .new_pc; 
Clear the FPD bit in the PSL 
dbg$runframe [dbg$l_user_psl] = .dbg$runframe Cdbg$l_user_psiJ 
ZX"F7FRFRFFFS: 
END; 
Check PC for read access 
new_pc = .dbg$runframe [dbg$l_user_pc]; 
Ken PROBER (ZREF (0), ZREF (1), .new_pc) 
BEGIN 


message _vect = dbg$nmake_arg_vect (dbg$_badstartpc, 1, .new_pc); 
RETURN stsSk_ severe; : : 


Inform the monitor to start the user program 
DBGSGB_TAKE_CMD = FALSE; 


Set the global flag saying whether GO has an argument. 
iF z VERS_NODE COOGEE _VERB_COMPOSITE 3 EQL GO_ADDR 
DBG$GB_GO_ARG_FLAG = TRUE 


ELSE 
DBG$GB_GO_ARG_FLAG = FALSE; 


! If we are continuing from an unhandled exception, signal an 
} informational message to that effect. 


if .DBGS$GB_UNHANDLED_EXC 
THEN 


BEGIN 
SIGNAL (DBG$_ CONF ROMEXC) ; 
DBGSGB_UNHARDLED_Exc = 0; 
END; 

RETURN STS$K_SUCCESS; 


END; 
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00FC 00000 -ENTRY DBGSNEXECUTE_GO, Save R2,R3,R4,R5,R6,R7 ; 0490 


1 
DBGSTEPGO 1b-sep-19 4 02:38:5 Ax-11 Bliss-32 V4.0-74 Page 15 
v04=000 12-08-1382 96:78:28 EoeBUG. SRC DBGSTEPGO.B32;1 9 6) 
57 00000006 00 9€ 002 MOVAB DBGS$GB_UNHANDLED_EXC, R7 ; 
g 0 0006 0 9E 00 MOVAB DBG$GB-GO_ARG_FLAG, R : 
2 9006 9E 19 MOVAB DBGSNMAKE-ARG-VECT. R : 
4 000000006 00 9€ 0001 MOVAB DBGSRUNFRAME+84, Rd : 
SE C Ce OOO1E SUBL2 #12, SP : 
50 04 AC DO 00021 OVL VERB_NODE, RO + 0550 
53 04 000 3 CLRL ; 
02 01 Ad 91 09 (MPR s«1(ROD, #2 : 
6¢ 12 00028 BNEQ 6$ : 
06 002D INCL R3 : 
50 08 AO DO 0002F MOVL § (RO), NOUN_NODE : 0556 
08 ac DD 990 3 PUSHL MESSAGE_VECT + 0558 
7E 04 000 CLRL. = (SP) + 0557 
08 AE 9F 00038 PUSHAB : 
10 AE 9F 00038 PUSHAB ADDRESS ; 
60 DD 0003E PUSHL  (NOUN_NODE) ; 
000000006 00 05 FB 00040 CALLS #5, DBGSNGET_ADDRESS : 
69 50 €9 00047 BLBC —E.—«aRO, ; 
52 04 AE DO O004A MOVL § ADDRESS, NEW_PC + 0565 
52 DD 0004E PUSHL NEW_ : 0570 
000000006 00 01 FB 00050 CALLS #1, DBGSIS_IT_ENTRY : 
03 50 €9 00057 BLBC . ; 
52 02 ¢O 0005 ADDL2 #2. NEW_PC + 0572 
62 01 00 o¢ 0005D 1$: PROBER #0, #1,~(NEW_PC) : 0577 
3F 613 00061 BEQL 7 ; 
51 64 DO 00063 MOVL §§ DBGSRUNFRAME+64, OLD_PC + 0588 
24 000000006 00 04 £1 00066 BBC #4, DBGSGL CONTEXT #2; 4$ : 0590 
9817 BF 61 61 00066 CMPw = (OLD_PC), #3970 : 0593 
0C 13 0007 BEQL ; 
50 000000006 00 9€ 00075 MOVAB DBGSTHREAD_RET, RO : 0595 
50 51 01 0007C¢ CMPL  OLD_PC, RO ; 
06 12 0007F BNEG F 
FO AG 52 D0 00081 2S: MOVL NEW PC, DBGSRUNFRAME+48 : 0597 
0€ 11 00085 BRB : 
00028188  &8F DD 00087 3s: PUSHL #164280 + 0600 
65 01 FB 0008D CALLS #1, DBGSNMAKE_ARG_VECT ; 
1D 11 00090 BRB ; 
64 52 00 0009¢ 43: MOVL. NEW_PC, DBGSRUNFRAME +64 > 0605 
07 «AG 08 8A 00095 5$: BICB2 #8, ~DBGSRUNFRAME+71 : 0611 
52 64 00 49 644 6$: MOVL DBGSRUNFRAME+64, NEW_PC ; 0618 
62 01 00 Oc 0009C PROBER #0, #1, (NEW_PCS ; 0620 
(8° G00A0 BNEQ 10% ; 
52 DD O00A2 7S: PUSHL NEW_PC + 0623 
4 DD DOA, PUSHL # : 
00028160 8F DD 000A6 PUSHL #164320 : 
65 03 FB OOOAC CALLS #3, DBGSNMAKE_ARG_VECT ; 
08 ac 50 00 OOAF 8$: MOVL RO, @MESSAGE_QECT ; 
0 04 DO 00083 9$: MOVL #4. RO + 0624 
3 it RET ; 
000000006 99 4 00087 10$:  CLRB DaGSGB TAKE_CMD > 0630 
05 £9 008 BLBC ~=E_s«aR 3:11 > 0635 
66 4 0 000C MOVB #1, DBG$GB_GO_ARG_FLAG > 0637 
2 99¢ BRB 12§ ; 
66 94 000C5 11$:  CLRB DBG$GB_GO_ARG_FLAG > 0639 
F 6 £9 oc 12$:  BLBC  DBGSGBUNRANDCED_EXC, 138 > 0645 
00028783 8F DD OOOCA PUSHL #16576 > 0648 
000000006 00 01 FB 000D0 CALLS #1, LIBSSIGNAL ; 
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COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:DBGSTEPGO/OBJ=0BJ$:DBGSTEPGO MSRC$:DBGSTEPGO/UPDATE =(ENH$ : DBGSTEPGO) 


; Size: 391 ANE + 2 data bytes 
Run Time: 
Elapsed Time: 
Limes/CPU Min: "368 
Lexemes/CPU-Min: 47 


A Used: 109 pages 
Compilation Complete 


1b-Se0-1984 : 06: 38: 23 AX-11 Bliss-32 V4.0-74 


Hf 94 00007 CLRB COSTES LMMANDLED EXC 
50 1 00 00009 13$: MOVL #i, R 
04 oc BR 
; Routine Size: 221 bytes, Routine Base: DBGSCODE + OOAA 
527 0655 1 
528 0656 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
DBGSCODE 391 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
DBGSPLIT 2 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
Library Statistics 
~—pepeieie > Syabols -o<<-<-- Pages ‘estan 
File Total Loaded Percent Mapped Tim 
~$255$0UA28 : CSYSLIBILIB.L32;1 18619 0 1000 00:01.9 
“$255$DUA28: Bree Dey eoeevane abot 32 g 0 7 00:00.1 
_$255$0UA28 : (DEBUG. OBJ JDBGLIB.L32;1 1545 3 2 97 00:02.0 
~$255$DUA28 : (DEBUG.OBJ JDSTRECRDS.L32;1 
418 0 0 31 00: 90.3 
_$255$DUA28: peeeue- -0BJ ]DBGMSG.L32;1 386 7 1 22 00:00.3 
*$255$DUA28 : (DEBUG. 0B/ JDBGGEN.L32;1 150 0 0 12 00:00.3 
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